x <- seq(-10,10,by=0.1)
y <- dnorm(x,mean=2.5,sd=0.5)
plot(x,y)

x <- seq(-10,10,by=0.2)
y <- pnorm(x,mean=2.5,sd=2)
plot(x,y)

x <- seq(0,1,by=0.02)
y <- qnorm(x,mean=2,sd=3)
plot(x,y)

y <- rnorm(50)
hist(y)
